Imagem

Imagem

Sei la como faz isso era um exemplo de titulo mesmo

conteudo aleaório para teste

  Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
 Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
 1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
 Median :5.800   Median :3.000   Median :4.350   Median :1.300  
 Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
 3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
 Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
       Species  
 setosa    :50  
 versicolor:50  
 virginica :50  
                
                
                

Gráfico

Tabelas

Esses são os data frames feitos durante as aulas

column

Df curso

Base iris

---
title: "Primeiro Flexdahsboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    #vertical_layout: fill
    social: menu
    source_code: embed
    theme: lumen
---

```{r setup, include=FALSE}
library(flexdashboard)
```

# Imagem
### Imagem


Sei la como faz isso era um exemplo de titulo mesmo

### conteudo aleaório para teste

```{r}
summary(iris)

```

# Gráfico

```{r}
library(ggplot2)
library(plotly)
library(gapminder)
library(stats)

gap4 <- aggregate(lifeExp ~ continent + year, 
                  data =gapminder, 
                  FUN = mean)


linha2 <- ggplot(gap4, aes(year,lifeExp, 
                          color = continent ))+
  geom_line()+ 
  geom_point(aes(shape=continent))+
  labs(title = "Evolução da expectativa de vida por continente",
       x = "Ano",
       y = "anos de vida",
       color = "Continente")

ggplotly(linha2)

```


# Tabelas 
Esses são os data frames feitos durante as aulas 

column{.tabset}
---------------------
### Df curso
```{r}
dfCurso <- data.frame("nome"=c("Joana", "Maria", "João", "Pedro", "José"),
                      "idade"= c(21,25,28,34,18),
                      "curso"= c("Engenharia","Engenharia","Direito",
                                 "Enfermagem","Engenharia"))

dfCurso %>% DT::datatable() 

```
### Base iris
```{r}
data("iris")
iris %>% DT::datatable()

```